home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_11 / printkey / printkey < prev    next >
Unknown  |  1988-07-12  |  3.9 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 20 f4 20 3e | 20 50 72 69 6e 74 4b 65 |.... . >| PrintKe|
|00000010| 79 0d 00 14 4a 20 f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |y...J . |--------|
|00000020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 00 1e 1c 20 |--------|---.... |
|00000060| f4 20 50 72 69 6e 74 4b | 65 79 20 56 65 72 73 69 |. PrintK|ey Versi|
|00000070| 6f 6e 20 31 2e 30 30 0d | 00 28 1c 20 f4 20 2d 2d |on 1.00.|.(. . --|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000090| 2d 2d 2d 0d 00 32 06 20 | f4 0d 00 3c 17 20 f4 20 |---..2. |...<. . |
|000000a0| 28 63 29 20 35 74 68 20 | 4d 61 79 20 31 39 38 38 |(c) 5th |May 1988|
|000000b0| 0d 00 3d 06 20 f4 0d 00 | 46 15 20 f4 20 42 79 20 |..=. ...|F. . By |
|000000c0| 4e 65 69 6c 20 53 74 72 | 6f 6e 67 0d 00 50 06 20 |Neil Str|ong..P. |
|000000d0| f4 0d 00 5a 40 20 f4 20 | 49 6e 74 65 72 63 65 70 |...Z@ . |Intercep|
|000000e0| 74 73 20 74 68 65 20 49 | 4e 53 56 20 27 49 6e 73 |ts the I|NSV 'Ins|
|000000f0| 65 72 74 20 43 68 61 72 | 61 63 74 65 72 20 69 6e |ert Char|acter in|
|00000100| 74 6f 20 42 75 66 66 65 | 72 27 20 56 65 63 74 6f |to Buffe|r' Vecto|
|00000110| 72 0d 00 64 39 20 f4 20 | 63 68 65 63 6b 69 6e 67 |r..d9 . |checking|
|00000120| 20 74 6f 20 73 65 65 20 | 69 66 20 74 68 65 20 50 | to see |if the P|
|00000130| 52 49 4e 54 20 6b 65 79 | 20 68 61 73 20 62 65 65 |RINT key| has bee|
|00000140| 6e 20 70 72 65 73 73 65 | 64 2e 0d 00 6e 06 20 f4 |n presse|d...n. .|
|00000150| 0d 00 78 34 20 f4 20 49 | 66 20 69 74 20 68 61 73 |..x4 . I|f it has|
|00000160| 2c 20 61 20 2a 48 41 52 | 44 43 4f 50 59 52 58 20 |, a *HAR|DCOPYRX |
|00000170| 63 6f 6d 6d 61 6e 64 20 | 69 73 20 70 65 72 66 6f |command |is perfo|
|00000180| 72 6d 65 64 0d 00 82 06 | 20 f4 0d 00 8c 41 20 f4 |rmed....| ....A .|
|00000190| 20 54 68 69 73 20 63 6f | 6d 6d 61 6e 64 20 63 61 | This co|mmand ca|
|000001a0| 6e 20 62 65 20 72 65 70 | 6c 61 63 65 64 20 77 69 |n be rep|laced wi|
|000001b0| 74 68 20 74 68 65 20 70 | 72 69 6e 74 65 72 20 64 |th the p|rinter d|
|000001c0| 75 6d 70 20 63 6f 6d 6d | 61 6e 64 0d 00 96 3d 20 |ump comm|and...= |
|000001d0| f4 20 72 65 6c 65 76 61 | 6e 74 20 74 6f 20 79 6f |. releva|nt to yo|
|000001e0| 75 72 20 70 72 69 6e 74 | 65 72 2c 20 77 69 74 68 |ur print|er, with|
|000001f0| 20 70 61 72 61 6d 65 74 | 65 72 73 20 69 66 20 72 | paramet|ers if r|
|00000200| 65 71 75 69 72 65 64 2e | 0d 00 a0 06 20 f4 0d 00 |equired.|.... ...|
|00000210| aa 4a 20 f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.J . ---|--------|
|00000220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 00 b4 04 0d 00 be 18 |--------|........|
|00000260| 20 70 63 3d 31 35 3a 6c | 69 6e 6b 3d 31 34 3a 73 | pc=15:l|ink=14:s|
|00000270| 70 3d 31 33 0d 00 c8 04 | 0d 00 d2 10 20 de 20 63 |p=13....|.... . c|
|00000280| 6f 64 65 25 20 35 30 30 | 0d 00 dc 05 20 0d 00 e6 |ode% 500|.... ...|
|00000290| 13 20 e3 20 4b 25 3d 30 | 20 b8 20 32 20 88 20 32 |. . K%=0| . 2 . 2|
|000002a0| 0d 00 f0 0d 20 50 25 3d | 63 6f 64 65 25 0d 00 fa |.... P%=|code%...|
|000002b0| 0b 20 5b 4f 50 54 4b 25 | 0d 01 04 0b 20 2e 73 74 |. [OPTK%|.... .st|
|000002c0| 61 72 74 0d 01 0e 12 20 | 2e 6d 6f 64 75 6c 65 5f |art.... |.module_|
|000002d0| 73 74 61 72 74 0d 01 18 | 39 20 65 71 75 64 20 20 |start...|9 equd |
|000002e0| 20 20 20 20 20 30 20 20 | 20 20 20 20 20 20 20 20 | 0 | |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000300| 20 4e 6f 20 53 74 61 72 | 74 20 63 6f 64 65 0d 01 | No Star|t code..|
|00000310| 22 3b 20 65 71 75 64 20 | 20 20 20 20 20 20 69 6e |"; equd | in|
|00000320| 69 74 2d 6d 6f 64 75 6c | 65 5f 73 74 61 72 74 20 |it-modul|e_start |
|00000330| 20 20 20 20 20 20 20 20 | 3b 20 49 6e 69 74 69 61 | |; Initia|
|00000340| 6c 69 73 65 20 63 6f 64 | 65 0d 01 2c 39 20 65 71 |lise cod|e..,9 eq|
|00000350| 75 64 20 20 20 20 20 20 | 20 66 69 6e 61 6c 2d 6d |ud | final-m|
|00000360| 6f 64 75 6c 65 5f 73 74 | 61 72 74 20 20 20 20 20 |odule_st|art |
|00000370| 20 20 20 3b 20 66 69 6e | 61 6c 69 73 65 20 63 6f | ; fin|alise co|
|00000380| 64 65 0d 01 36 11 20 65 | 71 75 64 20 20 20 20 20 |de..6. e|qud |
|00000390| 20 20 30 0d 01 40 37 20 | 65 71 75 64 20 20 20 20 | 0..@7 |equd |
|000003a0| 20 20 20 74 69 74 6c 65 | 2d 6d 6f 64 75 6c 65 5f | title|-module_|
|000003b0| 73 74 61 72 74 20 20 20 | 20 20 20 20 20 3b 20 2a |start | ; *|
|000003c0| 83 55 4c 45 53 20 74 65 | 78 74 0d 01 4a 3a 20 65 |.ULES te|xt..J: e|
|000003d0| 71 75 64 20 20 20 20 20 | 20 20 68 65 6c 70 2d 6d |qud | help-m|
|000003e0| 6f 64 75 6c 65 5f 73 74 | 61 72 74 20 20 20 20 20 |odule_st|art |
|000003f0| 20 20 20 20 3b 20 2a c7 | 92 20 83 55 4c 45 53 20 | ; *.|. .ULES |
|00000400| 74 65 78 74 0d 01 54 11 | 20 65 71 75 64 20 20 20 |text..T.| equd |
|00000410| 20 20 20 20 30 0d 01 5e | 11 20 65 71 75 64 20 20 | 0..^|. equd |
|00000420| 20 20 20 20 20 30 0d 01 | 68 11 20 65 71 75 64 20 | 0..|h. equd |
|00000430| 20 20 20 20 20 20 30 0d | 01 72 11 20 65 71 75 64 | 0.|.r. equd|
|00000440| 20 20 20 20 20 20 20 30 | 0d 01 7c 11 20 65 71 75 | 0|..|. equ|
|00000450| 64 20 20 20 20 20 20 20 | 30 0d 01 86 04 0d 01 90 |d |0.......|
|00000460| 0b 20 2e 74 69 74 6c 65 | 0d 01 9a 27 20 65 71 75 |. .title|...' equ|
|00000470| 73 20 20 20 20 20 20 20 | 22 50 72 69 6e 74 4b 65 |s |"PrintKe|
|00000480| 79 22 3a 45 51 55 42 20 | 30 3a 41 4c 49 47 4e 0d |y":EQUB |0:ALIGN.|
|00000490| 01 a4 04 0d 01 ae 0a 20 | 2e 68 65 6c 70 0d 01 b8 |....... |.help...|
|000004a0| 49 20 65 71 75 73 20 20 | 20 20 20 20 20 22 50 72 |I equs | "Pr|
|000004b0| 69 6e 74 20 4b 65 79 22 | 3a 45 51 55 42 20 39 3a |int Key"|:EQUB 9:|
|000004c0| 65 71 75 73 20 22 31 2e | 30 30 20 28 30 35 20 4d |equs "1.|00 (05 M|
|000004d0| 61 79 20 31 39 38 38 29 | 22 3a 65 71 75 62 20 30 |ay 1988)|":equb 0|
|000004e0| 3a 61 6c 69 67 6e 0d 01 | c2 04 0d 01 cc 4c 20 3b |:align..|.....L ;|
|000004f0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000530| 2d 2d 2d 2d 2d 2d 0d 01 | d6 3f 20 3b 20 49 6e 69 |------..|.? ; Ini|
|00000540| 74 69 61 6c 69 73 65 20 | 63 6f 64 65 2c 20 63 61 |tialise |code, ca|
|00000550| 6c 6c 65 64 20 77 68 65 | 6e 20 6d 6f 64 75 6c 65 |lled whe|n module|
|00000560| 20 69 73 20 66 69 72 73 | 74 20 6c 6f 61 64 65 64 | is firs|t loaded|
|00000570| 2c 20 61 6e 64 0d 01 e0 | 29 20 3b 20 61 66 74 65 |, and...|) ; afte|
|00000580| 72 20 61 20 52 4d 52 45 | 49 4e 49 54 20 6f 72 20 |r a RMRE|INIT or |
|00000590| 52 4d 54 49 44 59 20 63 | 6f 6d 6d 61 6e 64 0d 01 |RMTIDY c|ommand..|
|000005a0| ea 23 20 3b 20 43 6c 61 | 69 6d 73 20 74 68 65 20 |.# ; Cla|ims the |
|000005b0| 49 4e 53 56 20 76 65 63 | 74 6f 72 20 28 26 31 34 |INSV vec|tor (&14|
|000005c0| 29 0d 01 f4 4c 20 3b 20 | 2d 2d 2d 2d 2d 2d 2d 2d |)...L ; |--------|
|000005d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 01 fe |--------|-----...|
|00000610| 04 0d 02 08 0a 20 2e 69 | 6e 69 74 0d 02 12 3f 20 |..... .i|nit...? |
|00000620| 73 74 6d 66 64 20 20 20 | 20 20 20 28 73 70 29 21 |stmfd | (sp)!|
|00000630| 2c 7b 6c 69 6e 6b 7d 20 | 20 20 20 20 20 20 20 20 |,{link} | |
|00000640| 20 20 20 20 20 3b 20 73 | 61 76 65 20 72 65 74 75 | ; s|ave retu|
|00000650| 72 6e 20 61 64 64 72 65 | 73 73 0d 02 1c 48 20 61 |rn addre|ss...H a|
|00000660| 64 72 20 20 20 20 20 20 | 20 20 72 31 2c 63 68 65 |dr | r1,che|
|00000670| 63 6b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ck | |
|00000680| 20 20 20 20 3b 20 70 6f | 69 6e 74 20 74 6f 20 6b | ; po|int to k|
|00000690| 65 79 70 72 65 73 73 20 | 63 68 65 63 6b 20 63 6f |eypress |check co|
|000006a0| 64 65 0d 02 26 15 20 6d | 6f 76 20 20 20 20 20 20 |de..&. m|ov |
|000006b0| 20 20 72 32 2c 23 30 0d | 02 30 17 20 6d 6f 76 20 | r2,#0.|.0. mov |
|000006c0| 20 20 20 20 20 20 20 72 | 30 2c 23 26 31 34 0d 02 | r|0,#&14..|
|000006d0| 3a 3d 20 73 77 69 20 20 | 20 20 20 20 20 20 22 4f |:= swi | "O|
|000006e0| 53 5f 43 6c 61 69 6d 22 | 20 20 20 20 20 20 20 20 |S_Claim"| |
|000006f0| 20 20 20 20 20 20 20 20 | 3b 20 63 6c 61 69 6d 20 | |; claim |
|00000700| 49 4e 53 56 20 76 65 63 | 74 6f 72 0d 02 44 32 20 |INSV vec|tor..D2 |
|00000710| 6c 64 6d 66 64 20 20 20 | 20 20 20 28 73 70 29 21 |ldmfd | (sp)!|
|00000720| 2c 7b 70 63 7d 20 20 20 | 20 20 20 20 20 20 20 20 |,{pc} | |
|00000730| 20 20 20 20 20 3b 20 72 | 65 74 75 72 6e 0d 02 4e | ; r|eturn..N|
|00000740| 04 0d 02 58 4c 20 3b 20 | 2d 2d 2d 2d 2d 2d 2d 2d |...XL ; |--------|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 02 62 |--------|-----..b|
|00000790| 41 20 3b 20 54 68 69 73 | 20 63 6f 64 65 20 69 73 |A ; This| code is|
|000007a0| 20 63 61 6c 6c 65 64 20 | 77 68 65 6e 20 61 20 52 | called |when a R|
|000007b0| 4d 4b 49 4c 4c 20 6f 72 | 20 52 4d 52 45 49 4e 49 |MKILL or| RMREINI|
|000007c0| 54 20 69 73 20 70 65 72 | 66 6f 72 6d 65 64 0d 02 |T is per|formed..|
|000007d0| 6c 3e 20 3b 20 49 74 20 | 72 65 6c 65 61 73 65 73 |l> ; It |releases|
|000007e0| 20 74 68 65 20 76 65 63 | 74 6f 72 20 63 6c 61 69 | the vec|tor clai|
|000007f0| 6d 65 64 20 6f 6e 20 6d | 6f 64 75 6c 65 20 69 6e |med on m|odule in|
|00000800| 69 74 69 61 6c 69 73 61 | 74 69 6f 6e 0d 02 76 4c |itialisa|tion..vL|
|00000810| 20 3b 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ; -----|--------|
|00000820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000850| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 02 80 04 0d 02 8a 0b |--------|........|
|00000860| 20 2e 66 69 6e 61 6c 0d | 02 94 3f 20 73 74 6d 66 | .final.|..? stmf|
|00000870| 64 20 20 20 20 20 20 28 | 73 70 29 21 2c 7b 6c 69 |d (|sp)!,{li|
|00000880| 6e 6b 7d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |nk} | |
|00000890| 20 3b 20 73 61 76 65 20 | 72 65 74 75 72 6e 20 61 | ; save |return a|
|000008a0| 64 64 72 65 73 73 0d 02 | 9e 18 20 61 64 72 20 20 |ddress..|.. adr |
|000008b0| 20 20 20 20 20 20 72 31 | 2c 63 68 65 63 6b 0d 02 | r1|,check..|
|000008c0| a8 17 20 6d 6f 76 20 20 | 20 20 20 20 20 20 72 30 |.. mov | r0|
|000008d0| 2c 23 26 31 34 0d 02 b2 | 15 20 6d 6f 76 20 20 20 |,#&14...|. mov |
|000008e0| 20 20 20 20 20 72 32 2c | 23 30 0d 02 bc 3f 20 73 | r2,|#0...? s|
|000008f0| 77 69 20 20 20 20 20 20 | 20 20 22 4f 53 5f 52 65 |wi | "OS_Re|
|00000900| 6c 65 61 73 65 22 20 20 | 20 20 20 20 20 20 20 20 |lease" | |
|00000910| 20 20 20 20 3b 20 72 65 | 6c 65 61 73 65 20 49 4e | ; re|lease IN|
|00000920| 53 56 20 76 65 63 74 6f | 72 0d 02 c6 1a 20 6c 64 |SV vecto|r.... ld|
|00000930| 6d 66 64 20 20 20 20 20 | 20 28 73 70 29 21 2c 7b |mfd | (sp)!,{|
|00000940| 70 63 7d 0d 02 d0 04 0d | 02 da 4c 20 3b 20 2d 2d |pc}.....|..L ; --|
|00000950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000990| 2d 2d 2d 0d 02 e4 41 20 | 3b 20 54 68 69 73 20 69 |---...A |; This i|
|000009a0| 73 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 61 6c |s the fu|nctional|
|000009b0| 20 70 61 72 74 2c 20 63 | 61 6c 6c 65 64 20 65 61 | part, c|alled ea|
|000009c0| 63 68 20 74 69 6d 65 20 | 61 20 72 65 71 75 65 73 |ch time |a reques|
|000009d0| 74 20 74 6f 0d 02 ee 30 | 20 3b 20 69 6e 73 65 72 |t to...0| ; inser|
|000009e0| 74 20 61 20 63 68 61 72 | 61 63 74 65 72 20 69 6e |t a char|acter in|
|000009f0| 74 6f 20 61 20 62 75 66 | 66 65 72 20 69 73 20 6d |to a buf|fer is m|
|00000a00| 61 64 65 2e 0d 02 f8 32 | 20 3b 20 49 65 2e 20 4b |ade....2| ; Ie. K|
|00000a10| 65 79 70 72 65 73 73 2c | 20 52 53 32 33 32 20 6f |eypress,| RS232 o|
|00000a20| 75 74 70 75 74 2c 20 50 | 72 69 6e 74 65 72 20 6f |utput, P|rinter o|
|00000a30| 75 74 70 75 74 2e 0d 03 | 02 4c 20 3b 20 49 66 20 |utput...|.L ; If |
|00000a40| 74 68 65 20 70 72 69 6e | 74 20 6b 65 79 20 69 73 |the prin|t key is|
|00000a50| 20 64 65 74 65 63 74 65 | 64 20 28 64 65 66 61 75 | detecte|d (defau|
|00000a60| 6c 74 20 31 32 38 29 20 | 61 20 2a 48 41 52 44 43 |lt 128) |a *HARDC|
|00000a70| 4f 50 59 52 58 20 69 73 | 20 70 65 72 66 6f 72 6d |OPYRX is| perform|
|00000a80| 65 64 0d 03 0c 4c 20 3b | 20 2d 2d 2d 2d 2d 2d 2d |ed...L ;| -------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 03 |--------|------..|
|00000ad0| 16 04 0d 03 20 0b 20 2e | 63 68 65 63 6b 0d 03 2a |.... . .|check..*|
|00000ae0| 3f 20 73 74 6d 66 64 20 | 20 20 20 20 20 28 73 70 |? stmfd | (sp|
|00000af0| 29 21 2c 7b 6c 69 6e 6b | 7d 20 20 20 20 20 20 20 |)!,{link|} |
|00000b00| 20 20 20 20 20 20 20 3b | 20 73 61 76 65 20 72 65 | ;| save re|
|00000b10| 74 75 72 6e 20 61 64 64 | 72 65 73 73 0d 03 34 44 |turn add|ress..4D|
|00000b20| 20 63 6d 70 20 20 20 20 | 20 20 20 20 72 31 2c 23 | cmp | r1,#|
|00000b30| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0 | |
|00000b40| 20 20 20 20 20 20 3b 20 | 63 68 65 63 6b 20 66 6f | ; |check fo|
|00000b50| 72 20 4b 45 59 42 4f 41 | 52 44 20 69 6e 70 75 74 |r KEYBOA|RD input|
|00000b60| 0d 03 3e 45 20 6c 64 6d | 6e 65 66 64 20 20 20 20 |..>E ldm|nefd |
|00000b70| 28 73 70 29 21 2c 7b 70 | 63 7d 20 20 20 20 20 20 |(sp)!,{p|c} |
|00000b80| 20 20 20 20 20 20 20 20 | 20 20 3b 20 69 66 20 6e | | ; if n|
|00000b90| 6f 74 2c 20 74 68 65 6e | 20 70 61 73 73 20 6f 6e |ot, then| pass on|
|00000ba0| 20 63 61 6c 6c 0d 03 48 | 3d 20 63 6d 70 20 20 20 | call..H|= cmp |
|00000bb0| 20 20 20 20 20 72 30 2c | 23 31 32 38 20 20 20 20 | r0,|#128 |
|00000bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000bd0| 20 69 73 20 69 74 20 27 | 70 72 69 6e 74 27 20 6b | is it '|print' k|
|00000be0| 65 79 0d 03 52 40 20 6c | 64 6d 6e 65 66 64 20 20 |ey..R@ l|dmnefd |
|00000bf0| 20 20 28 73 70 29 21 2c | 7b 70 63 7d 20 20 20 20 | (sp)!,|{pc} |
|00000c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 69 66 | | ; if|
|00000c10| 20 6e 6f 74 2c 20 70 61 | 73 73 20 63 61 6c 6c 20 | not, pa|ss call |
|00000c20| 6f 6e 0d 03 5c 47 20 61 | 64 72 20 20 20 20 20 20 |on..\G a|dr |
|00000c30| 20 20 72 30 2c 63 6f 6d | 6d 61 6e 64 20 20 20 20 | r0,com|mand |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 6f 74 | | ; ot|
|00000c50| 68 65 72 77 69 73 65 20 | 70 6f 69 6e 74 20 74 6f |herwise |point to|
|00000c60| 20 2e 63 6f 6d 6d 61 6e | 64 0d 03 66 36 20 73 77 | .comman|d..f6 sw|
|00000c70| 69 20 20 20 20 20 20 20 | 20 22 4f 53 5f 43 4c 49 |i | "OS_CLI|
|00000c80| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |" | |
|00000c90| 20 20 20 3b 20 65 78 65 | 63 75 74 65 20 69 74 0d | ; exe|cute it.|
|00000ca0| 03 67 48 20 61 64 72 20 | 20 20 20 20 20 20 20 72 |.gH adr | r|
|00000cb0| 30 2c 63 6f 6d 6d 61 6e | 64 31 20 20 20 20 20 20 |0,comman|d1 |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 3b 20 6f 74 68 65 72 | | ; other|
|00000cd0| 77 69 73 65 20 70 6f 69 | 6e 74 20 74 6f 20 2e 63 |wise poi|nt to .c|
|00000ce0| 6f 6d 6d 61 6e 64 31 0d | 03 68 36 20 73 77 69 20 |ommand1.|.h6 swi |
|00000cf0| 20 20 20 20 20 20 20 22 | 4f 53 5f 43 4c 49 22 20 | "|OS_CLI" |
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d10| 20 3b 20 65 78 65 63 75 | 74 65 20 69 74 0d 03 70 | ; execu|te it..p|
|00000d20| 4e 20 6c 64 6d 66 64 20 | 20 20 20 20 20 28 73 70 |N ldmfd | (sp|
|00000d30| 29 21 2c 7b 72 32 7d 20 | 20 20 20 20 20 20 20 20 |)!,{r2} | |
|00000d40| 20 20 20 20 20 20 20 3b | 20 70 75 6c 6c 20 70 72 | ;| pull pr|
|00000d50| 65 76 20 72 65 74 75 72 | 6e 20 61 64 64 72 65 73 |ev retur|n addres|
|00000d60| 73 20 6f 66 66 20 73 74 | 61 63 6b 0d 03 7a 36 20 |s off st|ack..z6 |
|00000d70| 6c 64 6d 66 64 20 20 20 | 20 20 20 28 73 70 29 21 |ldmfd | (sp)!|
|00000d80| 2c 7b 70 63 7d 20 20 20 | 20 20 20 20 20 20 20 20 |,{pc} | |
|00000d90| 20 20 20 20 20 3b 20 63 | 6c 61 69 6d 20 63 61 6c | ; c|laim cal|
|00000da0| 6c 0d 03 84 04 0d 03 8e | 0d 20 2e 63 6f 6d 6d 61 |l.......|. .comma|
|00000db0| 6e 64 0d 03 98 44 20 65 | 71 75 73 20 20 20 20 20 |nd...D e|qus |
|00000dc0| 20 20 22 53 63 72 65 65 | 6e 53 61 76 65 20 24 2e | "Scree|nSave $.|
|00000dd0| 73 63 72 3c 66 69 6c 65 | 3e 22 20 20 3b 20 70 6c |scr<file|>" ; pl|
|00000de0| 61 63 65 20 70 72 69 6e | 74 20 63 6f 6d 6d 61 6e |ace prin|t comman|
|00000df0| 64 20 68 65 72 65 0d 03 | a2 3b 20 45 51 55 42 20 |d here..|.; EQUB |
|00000e00| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0 | |
|00000e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e20| 3b 20 6e 75 6c 6c 20 74 | 65 72 6d 69 6e 61 74 6f |; null t|erminato|
|00000e30| 72 0d 03 ac 0a 20 41 4c | 49 47 4e 0d 03 ad 0e 20 |r.... AL|IGN.... |
|00000e40| 2e 63 6f 6d 6d 61 6e 64 | 31 0d 03 ae 44 20 65 71 |.command|1...D eq|
|00000e50| 75 73 20 20 20 20 20 20 | 20 22 73 65 74 65 76 61 |us | "seteva|
|00000e60| 6c 20 66 69 6c 65 20 66 | 69 6c 65 2b 31 22 20 20 |l file f|ile+1" |
|00000e70| 20 20 20 3b 20 70 6c 61 | 63 65 20 70 72 69 6e 74 | ; pla|ce print|
|00000e80| 20 63 6f 6d 6d 61 6e 64 | 20 68 65 72 65 0d 03 af | command| here...|
|00000e90| 0b 20 45 51 55 42 20 30 | 0d 03 b0 0a 20 41 4c 49 |. EQUB 0|.... ALI|
|00000ea0| 47 4e 0d 03 b6 09 20 2e | 65 6e 64 0d 03 c0 06 20 |GN.... .|end.... |
|00000eb0| 5d 0d 03 ca 06 20 ed 0d | 03 d4 04 0d 03 de 30 20 |].... ..|......0 |
|00000ec0| ff 20 22 53 41 56 45 20 | 50 4b 45 59 20 22 2b c3 |. "SAVE |PKEY "+.|
|00000ed0| 7e 28 73 74 61 72 74 29 | 2b 22 20 2b 22 2b c3 7e |~(start)|+" +"+.~|
|00000ee0| 28 65 6e 64 2d 73 74 61 | 72 74 29 0d 03 e8 40 20 |(end-sta|rt)...@ |
|00000ef0| ff 20 22 53 54 41 4d 50 | 20 50 4b 45 59 22 20 20 |. "STAMP| PKEY" |
|00000f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f10| 20 3a 20 f4 20 44 61 74 | 65 20 73 74 61 6d 70 20 | : . Dat|e stamp |
|00000f20| 6f 62 6a 65 63 74 20 66 | 69 6c 65 0d 03 f2 3c 20 |object f|ile...< |
|00000f30| ff 20 22 53 45 54 54 59 | 50 45 20 50 4b 45 59 20 |. "SETTY|PE PKEY |
|00000f40| 26 46 46 41 22 20 20 20 | 20 20 20 20 20 20 20 20 |&FFA" | |
|00000f50| 20 3a 20 f4 20 73 65 74 | 20 74 79 70 65 20 74 6f | : . set| type to|
|00000f60| 20 4d 4f 44 55 4c 45 0d | 04 06 19 20 ff 20 28 22 | MODULE.|... . ("|
|00000f70| 53 45 54 45 56 41 4c 20 | 66 69 6c 65 20 30 22 29 |SETEVAL |file 0")|
|00000f80| 0d 04 10 06 20 e0 0d ff | |.... ...| |
+--------+-------------------------+-------------------------+--------+--------+